home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Musica
/
ZMUD32.ZIP
/
ZMUD.EXE
/
0
/
RCDATA
/
TMACROD
/
TMACROD.txt
Wrap
Text File
|
1997-06-09
|
19KB
|
672 lines
object Macrod: TMacrod
Left = 264
Top = 150
HelpContext = 102
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Macro Keys'
ClientHeight = 353
ClientWidth = 564
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label7: TLabel
Left = 8
Top = 32
Width = 87
Height = 13
Caption = 'Stored Macros:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 8
Top = 48
Width = 156
Height = 13
Caption = 'Click on an macro below to edit it'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 184
Top = 32
Width = 32
Height = 32
AutoSize = True
end
object Bevel1: TBevel
Left = 168
Top = 32
Width = 9
Height = 259
Shape = bsLeftLine
end
object Label3: TLabel
Left = 224
Top = 40
Width = 273
Height = 13
Caption = 'Macros allow you to assign a series of commands to a key'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 240
Top = 56
Width = 256
Height = 13
Caption = 'Edit the name of the key, or press the keyboard button'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 240
Top = 86
Width = 272
Height = 13
Caption = 'Enter the commands to be executed in the Command field'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object AliasText: TLabel
Left = 244
Top = 194
Width = 21
Height = 13
Alignment = taRightJustify
Caption = 'Key:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 210
Top = 218
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 256
Top = 70
Width = 128
Height = 13
Caption = 'to select a key interactively'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 358
Top = 192
Width = 20
Height = 20
Hint = 'Select a key for the macro'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333300000000000033300888888888800330F888888888
880330FF88888888880330FF77777777780330FF70770777780330FF70770777
780330FF70000777780330FF70770777780330FF770077777803300F77777777
7003330000000000003333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
OnClick = SpeedButton1Click
end
object HelpTxt: TLabel
Left = 256
Top = 100
Width = 218
Height = 13
Caption = 'separate multiple commands with a ; character'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 62
Width = 120
Height = 13
Caption = 'Double click to execute it'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 272
Top = 216
Width = 20
Height = 20
Hint = 'Edit command|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object Inh: TLabel
Left = 272
Top = 248
Width = 188
Height = 13
Caption = 'Inherited from parent settings file'
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label6: TLabel
Left = 240
Top = 118
Width = 273
Height = 13
Caption = 'End commands with ~ to append to command line instead'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 256
Top = 132
Width = 156
Height = 13
Caption = 'of sending command to the MUD'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 240
Top = 150
Width = 268
Height = 13
Caption = 'Begin commands with ~ to append to command line and '
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 256
Top = 164
Width = 154
Height = 13
Caption = 'send resulting command to MUD'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object OKBtn: TBitBtn
Left = 320
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 402
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CancelBtnClick
Kind = bkCancel
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 484
Top = 300
Width = 77
Height = 27
HelpContext = 102
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Spacing = -1
IsControl = True
end
object MacroList: TListBox
Left = 8
Top = 80
Width = 154
Height = 211
ExtendedSelect = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 3
OnClick = MacroListClick
OnDblClick = MacroListDblClick
OnMouseDown = MacroListMouseDown
end
object NewBtn: TBitBtn
Left = 8
Top = 300
Width = 62
Height = 27
Hint = '|Create a new macro'
Caption = '&New'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = NewBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object KeyName: TEdit
Left = 272
Top = 192
Width = 81
Height = 21
Hint = '|Name of macro key'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnChange = KeyNameChange
end
object KeyCom: TEdit
Left = 296
Top = 216
Width = 241
Height = 21
Hint = '|Commands to assign to the macro'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnChange = KeyComChange
end
object Key: TEdit
Left = 392
Top = 192
Width = 81
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
Visible = False
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 564
Height = 22
Align = alTop
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 8
object Panel3: TPanel
Left = 1
Top = 1
Width = 42
Height = 20
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object TopBtn: TSpeedButton
Left = 0
Top = 0
Width = 20
Height = 20
Hint = 'Keep on top|Forces this dialog to display on top of others'
AllowAllUp = True
GroupIndex = 1
NumGlyphs = 2
OnClick = TopBtnClick
end
object LoadBtn: TSpeedButton
Left = 20
Top = 0
Width = 20
Height = 20
Hint = 'Update for active MUD|Loads macros for current character window'
NumGlyphs = 2
OnClick = LoadBtnClick
end
end
object Panel4: TPanel
Left = 43
Top = 1
Width = 520
Height = 20
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object BtnPanel5: TBtnPanel
Left = 0
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Aliases'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = AliasBtnClick
end
object VarBtn: TBtnPanel
Left = 64
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Variables'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = VarBtnClick
end
object MacroBtn: TBtnPanel
Left = 128
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Macros'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = MacroBtnClick
end
object ButBtn: TBtnPanel
Left = 192
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Buttons'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ButBtnClick
end
object TrigBtn: TBtnPanel
Left = 256
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Triggers'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = TrigBtnClick
end
object WalkBtn: TBtnPanel
Left = 320
Top = 0
Width = 88
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Speedwalking'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = WalkBtnClick
end
end
end
object CopyBtn: TBitBtn
Left = 72
Top = 300
Width = 62
Height = 27
Hint = '|Make a copy of the currently selected macro'
Caption = '&Copy'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = CopyBtnClick
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 136
Top = 300
Width = 27
Height = 27
Hint = 'Delete macro'
TabOrder = 10
OnClick = DelBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object HelpPanel: TPanel
Left = 0
Top = 333
Width = 564
Height = 20
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object PopupMenu1: TPopupMenu
Left = 184
Top = 256
object PopupMenu: TMenuItem
Caption = 'Execute'
ShortCut = 0
OnClick = MacroListDblClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object New1: TMenuItem
Caption = 'New'
ShortCut = 0
OnClick = NewBtnClick
end
object Copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopyBtnClick
end
object Delete1: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = DelBtnClick
end
end
end